<script>on mouseUppush cdset hilite of bg btn "Sort" to trueset hilite of bg btn "Sort" to falsego to cd "sorting"end mouseUpon mouseWithinballoon "Sort the books in the stack."end mouseWithin</script>
</part>
<part>
<id>2</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>406</left>
<top>90</top>
<right>438</right>
<bottom>120</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>9301</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Back</name>
<script>on mouseUpset hilite of bg btn "Back" to truego previous cd of this bgset hilite of bg btn "Back" to falseend mouseUpon mouseWithinballoon "Go to the previous book in the stack."end mouseWithin</script>
</part>
<part>
<id>3</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>406</left>
<top>56</top>
<right>438</right>
<bottom>86</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>27009</icon>
<textAlign>center</textAlign>
<font>New Century Schlbk</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Next</name>
<script>on mouseUpset hilite of bg btn "Next" to truego next cd of this bgset hilite of bg btn "Next" to falseend mouseUpon mouseWithinballoon "Go to the next book in the stack." & return & return ¬& "Remember the stack wraps around."end mouseWithin</script>
</part>
<part>
<id>4</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>406</left>
<top>125</top>
<right>438</right>
<bottom>155</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>30557</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>First</name>
<script>on mouseUpset hilite of bg btn "First" to truego first cd of this bgset hilite of bg btn "First" to falseend mouseUpon mouseWithinballoon "Go to the first book in the stack."end mouseWithin</script>
</part>
<part>
<id>6</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>405</left>
<top>20</top>
<right>438</right>
<bottom>50</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>26865</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Last</name>
<script>on mouseUpset hilite of bg btn "Last" to truego last cd of this bgset hilite of bg btn "Last" to falseend mouseUpon mouseWithinballoon "Go to the last book in the stack."end mouseWithin</script>
</part>
<part>
<id>7</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>116</left>
<top>26</top>
<right>361</right>
<bottom>46</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>New York</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Author</name>
<script>on mouseWithinballoon "Author" & return & return ¬& "Enter the author's name, last name first."end mouseWithin</script>
</part>
<part>
<id>8</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>126</left>
<top>54</top>
<right>370</right>
<bottom>71</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>New York</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Title</name>
<script>on mouseWithinballoon "Title" & return & return ¬& "Enter the Title of the book with keywords first, not 'a'," ¬& "'an' or 'the'."end mouseWithin</script>
</part>
<part>
<id>22</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>61</left>
<top>100</top>
<right>151</right>
<bottom>116</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<textHeight>13</textHeight>
<name>Type</name>
<script>on mouseDownput "Children's,Biography,Cartoon,Computer,Fiction,History,Humor,Military,Mystery,Non-fiction,Reference,Romance,Science Fiction,Textbook,War,Western" & return ¬& "Computer,Comp Hardware,Comp Humour,Comp Language,Comp Reference,Comp Software" & return ¬& "Fiction,Classic,Gothic,Historical Novel,Humor,Mystery,Romance,Science Fiction,Western,War" & return ¬& "Graphics,Cartoons,Comics,Graphic Novels,Graphic Books" & return ¬& "Non-fiction,NF Biography,NF History,NF Military,NF Reference,NF Textbook" & return ¬into choicesput 0 into lastItemget HPopUpMenu(choices, lastItem,top of me, right of me)if the result is not empty then put the resultif item 1 of it is not empty thenif item 1 of it is "Go to" and item 2 of it is not empty thenvisual scroll up to blackvisual scroll upgo to item 2 of itelseif item 2 of it is not empty thenput item 2 of it into lastItemput lastItem into field 3 of this cd of this bgelseput item 1 of it into field 3 of this cd of this bgend ifend ifend ifend mouseDownon mouseWithinballoon "Type" & return & return ¬& "Press the mouse button to see the " ¬& "menu, and select from the types available."end mouseWithin</script>
</part>
<part>
<id>9</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>192</left>
<top>99</top>
<right>240</right>
<bottom>116</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>New York</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Pages</name>
<script>on closefieldNTFValidNumber 0,"1",""pass closefieldend closefieldon mouseWithinballoon "Pages" & return & return ¬& "Enter the number of pages in the book." & return ¬& "Must be greater than 0"end mouseWithin</script>
</part>
<part>
<id>10</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>279</left>
<top>98</top>
<right>327</right>
<bottom>116</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>New York</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Price</name>
<script>on closefieldNTFValidNumber 2,"1.00","200.00"pass closefieldend closefieldon mouseWithinballoon "Price" & return & return ¬& "Enter the price of the book."end mouseWithin</script>
</part>
<part>
<id>11</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>217</left>
<top>215</top>
<right>264</right>
<bottom>259</bottom>
</rect>
<style>opaque</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>14025</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>New Book</name>
<script>on mouseUpset hilite of bg btn "New Book" to truedoMenu "New Card"set hilite of bg btn "New Book" to falseend mouseUpon mouseWithinballoon "Enter a new book into the inventory" & return & return ¬& "Don't forget to sort the books after entering your new book." ¬& return & return & "Good for you!"end mouseWithin</script>
</part>
<part>
<id>14</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>399</left>
<top>162</top>
<right>447</right>
<bottom>190</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Quit</name>
<script>on mousedownset hilite of bg btn "Quit" to trueend mousedownon mouseUpset hilite of bg btn "Quit" to falsedoMenu "Quit HyperCard"end mouseUpon mouseWithinballoon "Quit HyperCard."end mouseWithin</script>
</part>
<part>
<id>15</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>163</left>
<top>215</top>
<right>212</right>
<bottom>259</bottom>
</rect>
<style>opaque</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>28654</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Find Book</name>
<script>on mouseUpset hilite of bg btn "Find Book" to trueask "Find What?"set hilite of bg btn "Find Book" to falseFind Itend mouseUpon mouseWithinballoon "Find a book or author in the inventory."end mouseWithin</script>
</part>
<part>
<id>24</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>104</left>
<top>147</top>
<right>166</right>
<bottom>162</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<textHeight>13</textHeight>
<name>Cover</name>
<script>-- on closefield-- pass closefield-- end closefieldon mouseDownput "Hardback,Minature,Odd Size,Oversize,Paperback,Pamphlet,Trade Size" into choicesput 0 into lastItemget HPopUpMenu(choices, lastItem,top of me, right of me)if the result is not empty then put the resultif item 1 of it is not empty thenif item 1 of it is "Go to" and item 2 of it is not empty thenvisual scroll up to blackvisual scroll upgo to item 2 of itelseput item 1 of it into field 6 of this cd of this bgend ifend ifend mouseDown-- on mousedown-- get NTFPopUp(left of me,top of me,"type","Resource")-- if it is not 0 then-- put last line of it into me --NTFPopUp Destination-- DO NOT REMOVE-- closefield-- end if --NTFPopUp-- DO NOT REMOVE-- end mousedownon mouseWithinballoon "Cover" & return & return ¬& "Use the button-press menu to determine the type of cover the" ¬& " book has."end mouseWithin</script>
</part>
<part>
<id>17</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>185</left>
<top>183</top>
<right>210</right>
<bottom>198</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>card number</name>
<script></script>
</part>
<part>
<id>18</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>237</left>
<top>183</top>
<right>265</right>
<bottom>198</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Total Cards</name>
<script></script>
</part>
<part>
<id>21</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>269</left>
<top>214</top>
<right>327</right>
<bottom>259</bottom>
</rect>
<style>opaque</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>25309</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Delete Book</name>
<script>on mouseUpset hilite of bg btn "Delete Book" to truewait 10 ticksset hilite of bg btn "Delete Book" to falsedoMenu "Delete Card"end mouseUpon mouseWithinballoon "Cut this card from the stack." & return & return ¬& "You actually got rid of a book? Shame on you!"end mouseWithin</script>
</part>
<part>
<id>25</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>241</left>
<top>148</top>
<right>268</right>
<bottom>163</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<textHeight>13</textHeight>
<name>Rating</name>
<script>on mouseDownput "0,1,2,3,4,5,6,7,8,9,10" into choicesput 5 into lastItemget HPopUpMenu(choices, lastItem,top of me, right of me)if the result is not empty then put the resultif item 1 of it is not empty thenif item 1 of it is "Go to" and item 2 of it is not empty thenvisual scroll up to blackvisual scroll upgo to item 2 of itelseput item 1 of it into field 9 of this cd of this bgend ifend ifend mouseDown-- on mousedown-- get NTFPopUp(left of me,top of me,"type","Resource")-- if it is not 0 then-- put last line of it into me --NTFPopUp Destination-- DO NOT REMOVE-- closefield-- end if --NTFPopUp-- DO NOT REMOVE-- end mousedownon mouseWithinballoon "Rating : What did you think of this book?" ¬& return & " 0 - Not yet read" & return ¬& " 1 - 'Greatest book ever'" & return & " down to" & return ¬& "10 - 'This is landfill'"end mouseWithin</script>
<script>on openCardput (number of this card of this bg - 2) into fld "card number"put number of cards of this bg into fld "total cards"end openCard</script>
